'**************************************
' Name: !!!*!Make a cool EASY Lotto Game
'     !*!!!
' Description:MAKE AN EASY LOTTO GAME!!!
'     ***UPDATED***
' By: SeeD
'
'
' Inputs:You're going to need 3 Labels t
'     o start. You can add more once you get t
'     he hang of it. You also need 1 Command b
'     utton. Make it's caption "OK", and the L
'     abels captions blank. Follow the simple 
'     instructions below.
'
' Returns:none
'
'Assumes:You can alter this code to your
'     convienience. Here are some nifty things
'     you could change:
You could use text boxes instead of labels. You would have To change every "Label1.Caption" to "Text1.Text" and so on.

You can add as many more text boxes or labels as you'd like, as Long as you adjust the code accrodingly.
If your smart enough, you could make it a simple password entry screen, but you'd have To Do some easy Error handling and you'd have to use text boxes instead of labels.
If your smart enough, you could make a simple lotto game to share With your friends and family. - SeeD (o:
'
'Side Effects:none
'
'Warranty:
'Code provided by Planet Source Code(tm)
'     (http://www.Planet-Source-Code.com) 'as 
'     is', without warranties as to performanc
'     e, fitness, merchantability,and any othe
'     r warranty (whether expressed or implied
'     ).
'Terms of Agreement:
'By using this source code, you agree to
'     the following terms...
' 1) You may use this source code in per
'     sonal projects and may compile it into a
'     n .exe/.dll/.ocx and distribute it in bi
'     nary format freely and with no charge.
' 2) You MAY NOT redistribute this sourc
'     e code (for example to a web site) witho
'     ut written permission from the original 
'     author.Failure to do so is a violation o
'     f copyright laws.
' 3) You may link to this code from anot
'     her website, provided it is not wrapped 
'     in a frame.
' 4) The author of this code may have re
'     tained certain additional copyright righ
'     ts.If so, this is indicated in the autho
'     r's description.
'**************************************



Private Sub Command1_Click()

    Label1.Caption = Int(rnd * 10)
    Label2.Caption = Int(rnd * 10)
    Label3.Caption = Int(rnd * 10)


    If (Label1.Caption = Label2.Caption) And (Label3.Caption = Label2.Caption) Then
        MsgBox "You Win!", 8, "Winner!"
    End If

End Sub